home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1997 / MacHack 1997.toast / Hacks / Hacks ’93 / SCSIPatch / Interfaces / AIncludes / patchEqu.a
Encoding:
Text File  |  1992-06-13  |  4.4 KB  |  149 lines  |  [TEXT/MPS ]
  1. ; ===========================================
  2. ;  Copyright Paul Baxter
  3. ; ===========================================
  4. ;
  5. ; Use:
  6. ;     Note: You may use glue instead of the macros by omitting the underscore.
  7. ;        If you use the glue, SCSIPatchAvail will be called for you. Otherwise
  8. ;            if any macro is called without the patch installed it will cause a crash.
  9. ;
  10. ; To see if patch is installed. 
  11. ; This is a glue routine and must be linked in. This only needs to be called once.
  12. ;        CLR.W        -(SP)
  13. ;       JSR        SCSIPatchAvail
  14. ;        MOVE.W    (SP)+,D0                        ; D0.W is the result non zero = installed
  15. ;
  16. ; To start recording SCSI calls
  17. ;        CLR.W        -(SP)
  18. ;        _SCSIStartRecord
  19. ;        MOVE.W    (SP)+,D0                        ; D0.W is the result 0 = noErr
  20. ;
  21. ; To stop recording SCSI calls
  22. ;        CLR.W        -(SP)
  23. ;        _SCSIStopRecord
  24. ;        MOVE.W    (SP)+,D0                        ; D0.W is the result 0 = noErr
  25. ;
  26. ; To reset the buffer pointer
  27. ;        CLR.W        -(SP)
  28. ;        _SCSIInitRecord
  29. ;        MOVE.W    (SP)+,D0                        ; D0.W is the result 0 = noErr
  30. ;
  31. ; To get the buffer pointer and count
  32. ;        CLR.W        -(SP)
  33. ;        PEA        buffer(A6)                    ; address you want the pointer stored
  34. ;        PEA        count(A6)                    ; address you want the count stored
  35. ;        _SCSISendRecord
  36. ;        MOVE.W    (SP)+,D0                        ; D0.W is the result 0 = noErr
  37. ;
  38. ; ===========================================
  39. ;               buffer format
  40. ; ===========================================
  41. ; scsiReset command
  42. ; 0000 0000
  43. ;   |        |__Result Code Word
  44. ;   |_______Routine Selector Word
  45. ; 
  46. ; scsiGet command
  47. ; 0001 0000
  48. ;   |        |__Result Code Word
  49. ;   |_______Routine Selector Word
  50. ;
  51. ; scsiSelect, scsiSelAtn commands
  52. ; (scsiSelect = 0002) (scsiSelAtn = 000B)
  53. ; 0002 0000 0000
  54. ;   |    |    |__Result Code Word
  55. ;     |    |_______SCSI ID
  56. ;   |____________Routine Selector Word
  57. ;
  58. ; scsiCmd command
  59. ; 0003 0006 0800 1C32 0100 0000
  60. ;   |    |    |    |    |    |__Result Code Word
  61. ;   |    |    |____|____|_______Command bytes
  62. ;     |    |______________________Length of Command
  63. ;   |___________________________Routine Selector Word
  64. ;
  65. ; scsiComplete command
  66. ; 0004 00C1 CE20 00D2 4130 0000 2E30 0000 0000 0000
  67. ;   |    |    |    |    |    |    |    |    |    |__Result Code Word
  68. ;   |    |    |    |    |    |    |    |    |_______Message Word Result
  69. ;   |    |    |    |    |    |      |    |____________Status Word Result
  70. ;   |    |    |    |    |    |____|_________________Completetion Time
  71. ;   |    |    |    |____|___________________________Message Word Pointer
  72. ;     |    |____|_____________________________________Status Word Pointer
  73. ;   |_______________________________________________Routine Selector Word
  74. ;
  75. ; scsiRead, scsiWrite, scsiRBlind, scsiWBlind commands
  76. ; (scsiRead = 5) (scsiWrite = 0006) (scsiRBlind = 0008) (scsiWBlind = 0009)
  77. ; 0005 0001 001E 56D2 0000 0001 0007 0000 0000 0000 0000 0000
  78. ;   |    |    |    |    |    |    |    |    |    |    |    |__Result Code Word
  79. ;     |    |____|____|____|____|____|____|____|____|____|_______SCSIInstrs (TIB) up to scStop
  80. ;   |_________________________________________________________Routine Selector Word
  81. ;
  82. ; scsiStat command
  83. ; 000A 0000
  84. ;   |        |__Status Word
  85. ;   |_______Routine Selector Word
  86. ;
  87. ; scsiMsgIn command
  88. ; 000C 001E 2840 0001 0000
  89. ;   |    |    |    |    |__Result Code Word
  90. ;   |    |    |    |_______Message Word
  91. ;     |    |____|____________Message Word Pointer
  92. ;   |______________________Routine Selector Word
  93. ;
  94. ; scsiMsgOut command
  95. ; 000D 0001 0000
  96. ;   |    |    |__Result Code Word
  97. ;     |    |_______Message Word
  98. ;   |____________Routine Selector Word
  99. ;
  100. ; data_opcode command
  101. ; 0204 0008 0000 0000 0000 0000
  102. ;   |    |    |    |    |    |
  103. ;   |    |    |____|____|____|_Data
  104. ;     |    |_____________________Data Count
  105. ;   |__________________________Routine Selector Word
  106. ;
  107. ; ===========================================
  108. ; routine selectors
  109. ; ===========================================
  110. start_rec        EQU    512
  111. stop_rec            EQU    513
  112. clear_rec        EQU    514
  113. send_rec            EQU    515
  114.  
  115. data_opcode        EQU    516
  116.  
  117.                 MACRO
  118.                 _SCSIStartRecord
  119.                 MOVE        #start_rec,-(SP)
  120.                 _SCSIDispatch
  121.                 ENDM
  122.  
  123.                 MACRO
  124.                 _SCSIStopRecord
  125.                 MOVE        #stop_rec,-(SP)
  126.                 _SCSIDispatch
  127.                 ENDM
  128.  
  129.                 MACRO
  130.                 _SCSIInitRecord
  131.                 MOVE        #clear_rec,-(SP)
  132.                 _SCSIDispatch
  133.                 ENDM
  134.  
  135.                 MACRO
  136.                 _SCSISendRecord
  137.                 MOVE        #send_rec,-(SP)
  138.                 _SCSIDispatch
  139.                 ENDM
  140.  
  141.                 Import SCSIStartRecord,SCSIStopRecord,SCSIInitRecord
  142.                 Import SCSISendRecord,SCSIPatchAvail
  143.  
  144. ;FUNCTION SCSIStopRecord: OSErr
  145. ;FUNCTION SCSIStopRecord: OSErr
  146. ;FUNCTION SCSIInitRecord: OSErr
  147. ;FUNCTION SCSISendRecord(VAR buffer: Ptr, VAR count:LONGINT): integer
  148. ;FUNCTION SCSIPatchAvail: integer
  149.